home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 January / Ahoy_Magazine_87-01_1987_Double_L.d64 / Perma Line (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  40 lines
  1. 10 rem *** perma-line *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=52000:l=110:c=11
  4. 40 printchr$(19)tab(31)l:print:forb=0toc:reada:ifa<0ora>255then60
  5. 50 pokej+b,a:x=x+a:nextb:reada:ifa=xthen70
  6. 60 print"error in data line:"l:end
  7. 70 x=0:j=j+12:l=l+10:ifl<390then40
  8. 80 ifl=390thenc=12:goto40
  9. 90 print"the data is ok and loaded...":print
  10. 100 print"sys 52000 to activate...":new
  11. 110 data32,33,204,169,0,162,160,133,251,134,252,170,1700
  12. 120 data161,251,129,251,230,251,208,248,230,252,165,252,2628
  13. 130 data201,192,144,240,173,3,3,201,203,208,9,169,1746
  14. 140 data131,162,56,160,164,76,136,203,142,126,169,169,1694
  15. 150 data76,162,156,160,203,141,108,164,142,109,164,140,1725
  16. 160 data110,164,162,187,160,203,141,156,164,142,157,164,1910
  17. 170 data140,158,164,162,167,160,203,142,123,168,140,124,1851
  18. 180 data168,162,175,160,203,141,197,168,142,198,168,140,2022
  19. 190 data199,168,169,147,162,36,160,203,141,2,3,140,1530
  20. 200 data3,3,104,104,76,15,204,32,30,204,142,124,1041
  21. 210 data204,76,131,164,173,124,204,208,3,76,113,164,1640
  22. 220 data76,116,164,169,0,141,124,204,76,89,166,169,1494
  23. 230 data0,141,124,204,165,95,233,1,76,201,168,32,1440
  24. 240 data107,169,165,122,166,123,141,121,204,142,122,204,1786
  25. 250 data169,255,162,1,133,122,134,123,202,134,251,160,1846
  26. 260 data6,32,115,0,176,20,201,48,144,16,166,251,1175
  27. 270 data208,6,201,48,240,239,133,251,136,240,32,76,1810
  28. 280 data213,203,192,2,176,12,165,251,201,54,144,6,1619
  29. 290 data165,21,201,234,144,13,173,121,204,174,122,204,1776
  30. 300 data133,122,134,123,76,159,164,104,104,162,0,189,1470
  31. 310 data44,204,240,7,32,210,255,232,76,15,204,76,1595
  32. 320 data116,164,162,54,44,162,55,120,134,1,162,47,1221
  33. 330 data134,0,88,96,17,84,72,69,32,77,65,88,822
  34. 340 data73,77,85,77,32,76,73,78,69,32,78,85,835
  35. 350 data77,66,69,82,32,73,83,32,54,53,53,51,725
  36. 360 data53,46,13,0,17,80,69,82,77,65,45,76,623
  37. 370 data73,78,69,32,73,83,32,79,78,46,13,0,656
  38. 380 data17,80,69,82,77,65,45,76,73,78,69,32,763
  39. 390 data73,83,32,79,70,70,46,13,0,66,85,67,75,759
  40.